#! /usr/bin/perl

use diagnostics;
use strict;

my $file = '/home/clock/andreandrade';
my $rm = `rm -vrf $file`;
print $rm;